m1b <- aov(log1p(abs(stan_violence$distance_comp)) ~ STATEFIP, stan_violence, weights = weight)
xtable::xtable(car::Anova(m1b))